"
I'm a domain object used by Equals tests.

I'm a fruit with a maturity stage.
"
Class {
	#name : 'EqFruit',
	#superclass : 'Object',
	#traits : 'TEquality',
	#classTraits : 'TEquality classTrait',
	#instVars : [
		'stage'
	],
	#category : 'Equals-Tests',
	#package : 'Equals-Tests'
}

{ #category : 'staging' }
EqFruit >> beRipe [
	stage := #ripe
]

{ #category : 'staging' }
EqFruit >> beRotten [
	stage := #rotten
]

{ #category : 'staging' }
EqFruit >> beUnripe [
	stage := #unripe
]

{ #category : 'accessing' }
EqFruit >> color [
	^self subclassResponsibility
]

{ #category : 'initialization' }
EqFruit >> initialize [
	super initialize.
	self beUnripe
]
